home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / port_2 / graph / grtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-22  |  851 b   |  49 lines
  1. program GrTest;
  2.  
  3. uses
  4.   dos,pfcrt,pfgraph;
  5.  
  6. var
  7.   ch : char;
  8.   i  : byte;
  9.  
  10. function ExistFile(dnam : string) : boolean;
  11. var
  12.   dat : file;
  13.   iof : boolean;
  14. begin
  15.   assign(dat,dnam);
  16.   {$i-} reset(dat); {$i+}
  17.   if ioresult <> 0 then
  18.     iof:= true
  19.   else begin
  20.     iof:= false;
  21.     close(dat);
  22.   end;
  23.   existfile:= iof;
  24. end;
  25.  
  26. begin
  27.   initgraph;
  28.   aktf:= 1;
  29.   rectangle(1,1,50,30);
  30.   circle(50,30,30);
  31.   savescreen;
  32.   ch:= readkey;
  33.   for i:= 1 to 6 do
  34.   begin
  35.     initgraph;               { zum Bildschirm löschen }
  36.     rectangle(0,0,239,63);
  37.     setfont(i);
  38.     outtextxy(1,1,'PortFolio Grafik');
  39.     delay(500);
  40.   end;
  41.   loadscreen;
  42.   outtextxy(1,1,'PortFolio Grafik');
  43.   ch:= readkey;
  44.   initgraph;                 { zum Bildschirm löschen }
  45.   loadsdat('mickey.apf');
  46.   ch:= readkey;
  47.   closegraph;
  48. end.
  49. ə